 GetY ()     ( Graph)
 ----------------------------------
 Y-   (CP).

 :
 Function GetY : Integer;

 :
Real, Protected

 :
 GetY       ,
   .

  SetViewPort(0, 0, GetMaxX, GetMaxY, True);
  CP    (0, 0),  GetY   0.

  MoveTo(5, 5);
  CP    (5, 5),  GetY   5.

  SetViewPort(10, 10, 100, 100, True);
  CP    (10, 10),  GetY   0.

  MoveTo(5, 5);
  CP    (15, 15),  GetY   5.

 :
    .

  :
 GetViewSettings
 GetX
 InitGraph
 MoveTo
 SetViewPort

 :
 Getx.PAS



{Getx.PAS}
-----------
{     GetX }

Uses Graph;

Var Gd, Gm : Integer;
      X, Y : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 OutText('Starting here. ');
 X:=GetX;
 Y:=GetY;
 OutTextXY(20, 10, 'Now over here...');
 OutTextXY(X, Y, 'Now back over here.');
 ReadLn;
 CloseGraph;
End.
